   1 .
   2 .
   3 .
   4 .
   5 .*SURF SOUNDS (1)*         *CRICKETS    (2)*
   6 IF &(23)=8GOTO 11
   7 IF &(22)=8GOTO 7200
  10 CLEAR ;:RETURN ;NT=0;&(21)=0;&(22)=0;&(16)=71;&(17)=0;&(18)=0;&(19)=0;&(20)=0;GOTO 6
  11 FC=245;BOX 0,-20,160,48,3
  15 BC=7;&(23)=179;&(18)=150;&(16)=50;&(19)=1
  20 BOX RND (160)-88,RND (30)-44,RND (30),1,3;BOX RND (200)-100,RND (28)-44,30,3,1
  30 B=RND (11)-7
  40 C=RND (4)-3;IF C=0C=-1
  45 G=RND (3)-2;IF G=0G=-1
  47 IF H>23G=-(ABS(G))
  48 IF H<23G=(ABS(G))
  50 P=RND (5)+10
  60 FOR Q=1TO P
  70 E=E+C;&(22)=E;IF E<35E=35
  75 IF E>41E=41
  80 D=D+B;&(18)=D;IF D>254D=250
  83 IF D<150D=150
 100 H=H+G;&(21)=H;IF H<19H=19
 106 IF H>30H=30
 110 NEXT Q
 115 &(19)=RND (3);&(17)=RND (7)
 120 GOTO 20
7200 CLEAR 
7205 FC=12;BC=0
7210 FOR A=1TO 60
7220 BOX RND (160)-80,RND (88)-44,1,1,1
7230 NEXT A
7240 &(16)=255
7250 &(22)=40;&(21)=15
7260 &(20)=RND (50)+10
7270 &(23)=RND (255)
7280 GOTO 7240
RUN 
